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Option Explicit 

7/////////////////^^ 
7/ Type Declarations 

71 Constant Declarations 

Const ciFrmHeight As Integer = 5900 ' // Form height 
Const ciFrmWidth As Integer = 9600 ' // Form width 

7/////////////////^ 

7/ Variable Declarations 

Dim iCountFound As Integer 7/ No of series found 

7/////////////W///////////////////^ 

7/ Prototypes 

y//////////^ 

71 Function Declarations 

Private Sub Fonn_LoadO 

' // Initialization 

Call P_LoadForrn 
End Sub 
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7/ 

7/ Synopsis : P^LoadForm 
7/ 

7/ Name : Private Sub PJLoadFormO 
7/ 

7/ Descripuon : Initialization of the parameters in the form 
7/ 

7/ Input : None 

7/ 

7/ Return : None 
7/ 

y//////////^ 

Private Sub P_LoadForm() 
7/ Label initialization 
lblFirstRow.Caption = "" 
IblFirstValue.Caption = 
IblSecondRow.Caption = " " 
IblSecondValue.Caption = 
lblThirdRow.Caption = 
lblThtrdValue.Caption = M " 

7/ Parameters initialization 
'glErrCode « RC_SUCCESS 
'gsErrMsg = "" 
End Sub 
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Private Sub cmdOK_ClickO 

CaU P_FirstUpdatc 
End Sub 

7//////////////////^ 
7/ 

7/ Synopsis : P_FirstUpdate 
7/ 

7/ Name : Private Sub P_FirstUpdateO 

7/ 

7/ Description : Update in the first form 
7/ 

7/ Input : None 

7/ 

7/ Return : None 
7/ 

V//////////^ 

Private Sub P_FirstUpdate() 

Screen.MousePointer = vbHourglass 

•glErrCode = FindNoSeries 

Screen.MousePointer = vbDefault 

Call FindNoSeries 
End Sub 

Private Sub cmdCanceLClickO 
Unload Me 
Exit Sub 

End Sub 

Private Sub Form_Unload(Cancel As Integer) 

' // Clean up the form 

Call P_UnloadForm 
End Sub 
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iiiiliiiiiliiiiiiiiiiiiiiiiiiiiitiiiiiiilliiiiiliiiiiiiiiiitiuiiiiililiiiil 

7! 

71 Synopsis : P_UnloadF6rm 

71 

71 Name : Private Sub P_UnloadForm() 

71 

71 Description : Release the resource which occupied by the parameters 
71 in the form 

71 

71 Input : None 

71 

71 Return : None 

71 

7lilliilillllllllllI!llllillUIIIIIIUIIIIIIIIilllllllllllItlltllM 
Private Sub P_UnIoadForm() 

End Sub 

7/////////////////////////m 

71 

7/ Synopsis : FindNoSeries 

71 

71 Name : FindNoSeriesQ As Long 

71 

71 Description : Function to update Uex file and stock closing price 
71 

71 Input : N/A 

7/ 

7/ Return : FindNoSeries RC.SUCCESS Success 

71 RC JERROR Error 

71 

Public Function FindNoSeries() As Long 
Dim gsPath As String 

Dim gsCEFile As String 
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Dim gsErrMsg As String 

Dim sExist As String 

Dim takcFile As String 

Dim giCEFileNo As Integer 

Dim bCloseFile As Boolean 

Dim sNextLn As Siring 

Dim asNumberFound(800) As String 

Dim sFileName As String 

FindNoSeries = RC_ERROR 

bCloseFile = True 

'gsErrMsg = u " 

gsPalh = App.Path 

7/ Name of file is SortRecord 

gsCEFile = gsPath & T & "SortRecord" & *V 

sExist = Dir(gsCEFile) 

sFileName » txtFileName.Text & ".txt" 

If sExist = sFileName Then 

bCloseFile = False 
End If 

If bCloseFile Then 

7/ "not found. Update process not proceeded." 

gsErrMsg = "SortRecord not found. Process stops." 

MsgBox (gsErrMsg) 

'FindNoSeries = RCJERROR 

Exit Function 
End If 

giCEFileNo = FrecFile 

takeFile = gsCEFile & sExist 

Open takeFile For Input As #giCEFileNo 



Dim ILnNum As Long 
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ILnNum = 0 

Line Input #giCEFileNo, sNextLn 
Do UntU UCase(Trim(sNcxtLn)) = "END" 
7/ Validation 

If EOF(giCEFlIeNo) Then 

7/ "Unexpected end of file/ 4 

gsErrMsg = "Unexpected end of file" 

MsgBox (gsErrMsg) 

TindNoSeries = RC„ERROR 

Exit Function 
End If 

If Not IsNumeric(sNextLn) Then 
7/ "Non-numeric input M 

gsErrMsg = "Non-numeric input - & "Row M & ILnNum + 1 & V 
MsgBox (gsErrMsg) 
TindNoSeries = RC_ERROR 
Exit Function 
End If 

If ILnNum oO Then 

If Val(asNumberFound(lLiiNum - 1)) < Val(sNextLn) Then 

gsEn-Msg = "The input numbers are not sorted.(at row n & ILnNum + 1 & " .)" 
MsgBox (gsErrMsg) 
TindNoSeries = RC_ERROR 
Exit Function 
End If 
End If 

asNumberFound(lLnNum) = sNextLn 
DoEvenis 

Line Input #giCEFileNo, sNextLn 
ILnNum = ILnNum + 1 
Loop 
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If Not EOF(giCEFileNo) Then 
7/ "Unexpected end of file" 
gsErrMsg = "Unexpected end of file" 
MsgBox (gsErrMsg) 
■ FindNoSeries = RCJERROR 
Exit Function 

End If 

Close #giCEFileNo 

Dim IPrimaryNo As String 

Dim ISecondaryNo As String 

Dim lSecond As String 

Dim ITotalNo As Long 

Dim iOuterLoop As Integer 

Dim ilnnerLoop As Integer 

Dim bFound As Boolean 

Dim bNotFound As Boolean 

Dim IMagicNo As String 

Dim IT0IN0 As String 

Dim cIMagicOne As String 

Dim clMagicTwo As String 

Dim clTolOne As String 

Dim clTolTwo As String 

Dim asNumberOutput(200) As Long 

Dim iCountOutput As Integer 

Dim iFileNum As Integer 

Dim putFile As String 

'bCloseFile = True 

7/ Name of output file is "Result" 

'gsPath = App.Path 

7/ Name of file is SortRccord 

'gsCEFile = gsPath & 'V & "Result" & 'V 
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'sExist«=Dir(gsCEFile) 
If sExist = H Tryl-txt H Then 
' bCloseFile = False 
'End If 

Tf bCloseFile Then 

7/ M not found. Update process not proceeded." 
' gsErrMsg = "Result not found. Process stops. " 
' MsgBox (gsErrMsg) 

'FindNoSeries = RC_ERROR 
' Exit Function 
'End If 

7/ Open file for writing result 
iFileNum = FreeFile 

putFile = App.Path & V & "Result" & 'V & txtFileName.Text & M .txt" 
Open putFile For Append As #iFileNum 

7/ Set initial value 

iCountFound = 0 

clMagicOne = Val(cxiDiffl.Text) 

clMagicTwo = VaI(txtDiff2.Text) 

clTolOne = Val(txtToll.Text) 

clTolTwo = Vai(txtTol2.Text) 

bFound = False 

bNotFound = False 

iCountOuqput = 0 

IMagicNo = clMagicOne 

lTotalNo = ILnNum 

For iOuterLoop = 0 To (lTotalNo - 1) 

lPrimaryNo = asNumberFound(iOuierLoop) 

7/ Set all captions 

IblFirstVaiue.Capcion = lPrimaryNo 
lblFirstRow.Caption = iOuterLoop + 1 
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IblSecondVaJue.Caption = 
IblSecondRow.Capcion = nu 
IblThirdValue.Capcion = 
iblThirdRow.Caption = MM 
'// Reset variables in innerloop 

bFound = False 

bNotFoand = False 

IMagicNo = clMagicOne 

IT0IN0 = clTolOne 
'// set innerloop begin value 
ilnnerLoop = iOuterLoop + 1 
'// do until end of list or pattern found or not found 
Do Until bFound Or bNotFound Or (ilnnerLoop > ITotalNo - 1) 

lSecondaryNo = asNumberFound(ilnnerLoop) 

If (Val(lPrimaryNo) - Val(lSecondaryNo)) >= (Val(lMagicNo) - Val(lTolNo)) And , 
(Val(lPrimaryNo) - Val(lSecondaryNo)) <- (Val(lMagicNo) + Val(lTolNo)) Then 
If IMagicNo = cIMagicTwo Then 

IblThirdValue.Caption = lSecondaryNo 

IblThirdRow.Caption = ilnnerLoop + 1 

bFound = True 

'FindNoSeries = RCJSUCCESS 
Write #iFileNum, IPrimaryNo & n & " & ISecond & . 
" & " & lSecondaryNo 

Write #iFileNum, IPrimaryNo & H & " & ISecond & " & " & lSecondaryNo 

•((IPrimaryNo - 18 + ISecond + lSecondaryNo + 28) / 3) 
iCountFound = iCountFound + 1 

Else 

IblSecondVaJue.Caption = lSecondaryNo 
IblSecondRow. Caption = IlnnerLoop + 1 
ISecond = lSecondaryNo 
IMagicNo = cIMagicTwo 
ITolNo = clTolTwo 
End If 

Elself (Val(lSecondaryNo) - Val(lPrimaryNo)) > Val(lMagicNo) Then 
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bNotFound = True 
End If 

ilnnerLoop = ilnnerLoop + 1 
Loop 
Next 

7/ Close file 
Close #iFileNum 

If bFound = False Then 

'FindNoSeries = RC.NOTJ^OUND 
End If 

If iCouncFound o 0 Then 
IbiTrueFalse.Capcion = "True" 

MsgBox (iCountFound & M specific series number are found and save in M & utFileName.Text & 

M .Wt!!") 
Else 

IbiTrueFalse.Capcion = M False" 

MsgBox ("The specific series number is not found!!!!") 
End If 



End Function 



